﻿Imports QLPhuTungOto.Data
Public Class NhaCungCapBUS
    Public Function LayDSNhaCungCap() As List(Of NhaCungCap)
        Dim db As New QLPhuTungOtoDataContext
        Return db.NhaCungCap.LayDSNhaCungCap()
    End Function
    Public Sub SuaNhaCungCap(ByVal ncc As NhaCungCap)
        Dim db As New QLPhuTungOtoDataContext
        db.NhaCungCap.SuaNhaCungCap(ncc)
    End Sub
    Public Sub ThemNhaCungCap(ByVal ncc As NhaCungCap)
        Dim db As New QLPhuTungOtoDataContext
        db.NhaCungCap.ThemNhaCungCap(ncc)
    End Sub
    Public Function LayNhaCungCapTheoTen(ByVal str As String) As NhaCungCap
        Dim db As New QLPhuTungOtoDataContext
        Return db.LayNhaCungCapTheoTen(str)
    End Function
    Public Sub XoaNhaCungCap(ByVal maNCC As Integer)
        Dim db As New QLPhuTungOtoDataContext
        db.NhaCungCap.XoaNhaCungCap(maNCC)
    End Sub
End Class
